home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-05-01 | 5.3 KB | 233 lines | [TEXT/MPS ] |
- ;
- ; File: CMConversions.a
- ;
- ; Contains: ColorSync base <-> derived color space conversion Component interface
- ;
- ; Version: Technology: ColorSync 2.0
- ; Release: Universal Interfaces 3.0d3 on Copland DR1
- ;
- ; Copyright: © 1984-1996 by Apple Computer, Inc. All rights reserved.
- ;
- ; Bugs?: If you find a problem with this file, send the file and version
- ; information (from above) and the problem description to:
- ;
- ; Internet: apple.bugs@applelink.apple.com
- ; AppleLink: APPLE.BUGS
- ;
- ;
- IF &TYPE('__CMCONVERSIONS__') = 'UNDEFINED' THEN
- __CMCONVERSIONS__ SET 1
-
- IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
- include 'Types.a'
- ENDIF
- IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
- include 'Components.a'
- ENDIF
- IF &TYPE('__CMAPPLICATION__') = 'UNDEFINED' THEN
- include 'CMApplication.a'
- ENDIF
- IF FOR_SYSTEM7_AND_SYSTEM8_COOPERATIVE THEN
-
- CMConversionInterfaceVersion EQU 1
- ; Component function selectors
-
- kCMXYZToLab EQU 0
- kCMLabToXYZ EQU 1
- kCMXYZToLuv EQU 2
- kCMLuvToXYZ EQU 3
- kCMXYZToYxy EQU 4
- kCMYxyToXYZ EQU 5
- kCMRGBToHLS EQU 6
- kCMHLSToRGB EQU 7
- kCMRGBToHSV EQU 8
- kCMHSVToRGB EQU 9
- kCMRGBToGRAY EQU 10
- kCMXYZToFixedXYZ EQU 11
- kCMFixedXYZToXYZ EQU 12
- ;
- ; pascal ComponentResult CMXYZToLab(ComponentInstance ci, const CMColor *src, const CMXYZColor *white, CMColor *dst, unsigned long count)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CMXYZToLab
- move.l #$00100000,-(sp)
- moveq #0,D0
- dc.w $A82A
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CMXYZToLab
- ENDIF
-
- ;
- ; pascal ComponentResult CMLabToXYZ(ComponentInstance ci, const CMColor *src, const CMXYZColor *white, CMColor *dst, unsigned long count)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CMLabToXYZ
- move.l #$00100001,-(sp)
- moveq #0,D0
- dc.w $A82A
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CMLabToXYZ
- ENDIF
-
- ;
- ; pascal ComponentResult CMXYZToLuv(ComponentInstance ci, const CMColor *src, const CMXYZColor *white, CMColor *dst, unsigned long count)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CMXYZToLuv
- move.l #$00100002,-(sp)
- moveq #0,D0
- dc.w $A82A
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CMXYZToLuv
- ENDIF
-
- ;
- ; pascal ComponentResult CMLuvToXYZ(ComponentInstance ci, const CMColor *src, const CMXYZColor *white, CMColor *dst, unsigned long count)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CMLuvToXYZ
- move.l #$00100003,-(sp)
- moveq #0,D0
- dc.w $A82A
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CMLuvToXYZ
- ENDIF
-
- ;
- ; pascal ComponentResult CMXYZToYxy(ComponentInstance ci, const CMColor *src, CMColor *dst, unsigned long count)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CMXYZToYxy
- move.l #$000C0004,-(sp)
- moveq #0,D0
- dc.w $A82A
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CMXYZToYxy
- ENDIF
-
- ;
- ; pascal ComponentResult CMYxyToXYZ(ComponentInstance ci, const CMColor *src, CMColor *dst, unsigned long count)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CMYxyToXYZ
- move.l #$000C0005,-(sp)
- moveq #0,D0
- dc.w $A82A
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CMYxyToXYZ
- ENDIF
-
- ;
- ; pascal ComponentResult CMRGBToHLS(ComponentInstance ci, const CMColor *src, CMColor *dst, unsigned long count)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CMRGBToHLS
- move.l #$000C0006,-(sp)
- moveq #0,D0
- dc.w $A82A
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CMRGBToHLS
- ENDIF
-
- ;
- ; pascal ComponentResult CMHLSToRGB(ComponentInstance ci, const CMColor *src, CMColor *dst, unsigned long count)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CMHLSToRGB
- move.l #$000C0007,-(sp)
- moveq #0,D0
- dc.w $A82A
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CMHLSToRGB
- ENDIF
-
- ;
- ; pascal ComponentResult CMRGBToHSV(ComponentInstance ci, const CMColor *src, CMColor *dst, unsigned long count)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CMRGBToHSV
- move.l #$000C0008,-(sp)
- moveq #0,D0
- dc.w $A82A
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CMRGBToHSV
- ENDIF
-
- ;
- ; pascal ComponentResult CMHSVToRGB(ComponentInstance ci, const CMColor *src, CMColor *dst, unsigned long count)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CMHSVToRGB
- move.l #$000C0009,-(sp)
- moveq #0,D0
- dc.w $A82A
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CMHSVToRGB
- ENDIF
-
- ;
- ; pascal ComponentResult CMRGBToGray(ComponentInstance ci, const CMColor *src, CMColor *dst, unsigned long count)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CMRGBToGray
- move.l #$000C000A,-(sp)
- moveq #0,D0
- dc.w $A82A
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CMRGBToGray
- ENDIF
-
- ;
- ; pascal ComponentResult CMXYZToFixedXYZ(ComponentInstance ci, const CMXYZColor *src, CMFixedXYZColor *dst, unsigned long count)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CMXYZToFixedXYZ
- move.l #$000C000B,-(sp)
- moveq #0,D0
- dc.w $A82A
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CMXYZToFixedXYZ
- ENDIF
-
- ;
- ; pascal ComponentResult CMFixedXYZToXYZ(ComponentInstance ci, const CMFixedXYZColor *src, CMXYZColor *dst, unsigned long count)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CMFixedXYZToXYZ
- move.l #$000C000C,-(sp)
- moveq #0,D0
- dc.w $A82A
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CMFixedXYZToXYZ
- ENDIF
-
- ENDIF
- ENDIF ; __CMCONVERSIONS__
-
-